home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / melodies (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  508b  |  24 lines
  1. 15 IF F=0 THEN F=1:LOAD " MELODIES.2",8,1
  2. 20 POKE 53281,0:PRINT"":G=13*4096
  3. 40 POKE G+29,0:POKE G+39,14:POKE G+28,1
  4. 100 B=2*4096+1*256+15*16+0
  5. 110 TM=B+6
  6. 120 AD=B+7
  7. 130 SR=B+8
  8. 140 PC=B+9
  9. 150 WF=B+10
  10. 200 READ T:IF T=0 THEN END
  11. 210 READ A,D,S,R,W,P
  12. 250 PRINT "[147]FAITES UNE TOUCHE POUR ENTENDRE UN AIR"
  13. 260 GET A$:IF A$="" GOTO 260
  14. 300 POKE TM,T
  15. 310 POKE AD,A*16+D
  16. 320 POKE SR,S*16+R
  17. 330 POKE WF,W
  18. 340 POKE PC,P
  19. 350 SYS B
  20. 400 GOTO 200
  21. 500 DATA 70,7,9,0,0,17,0
  22. 600 DATA 65,2,7,0,0,33,1
  23. 700 DATA 0
  24.